start tok64 d64-NOqgrH
10 PRINT "{clear}print shop -> doodle":OPEN 15,8,15:DIM d%(15):FOR i=1 TO 15:READ d%(i):NEXT
12 FOR a=49152 TO 49362:READ d:POKE a,d:NEXT:a=780:x=781:y=782:z=0:SYS 49277
14 z=z+1:IF z=16 THEN 30
16 f$="":PRINT "{down}ladda bild nr."z;:INPUTf$:IF f$="" THEN 16
18 IF f$="$" THEN SYS 49152:GOTO 16
20 IF f$="#" THEN 30
22 f$="0:"+f$:GOSUB 54:POKE a,0:POKE x,0:POKE y,58:SYS65493:GOSUB50:IF e THEN 16
24 GOSUB 42:SYS 49325
26 GET k$:IF k$<>CHR$(13) THEN 26
28 SYS 49344:GOTO 14
30 f$="":INPUT "{down}filnamn (spara) ";f$:IFf$="" THEN 30
32 IF f$="#" THEN 40
34 IF LEN(f$)>14 THEN 30
36 PRINT#15,"io":f$="0:dd"+f$:GOSUB 54
38 POKE 251,0:POKE 252,92:POKE a,251:POKE x,0:POKE y,128:SYS 65496
40 CLOSE 15:END
42 p=22528:r=0
44 FOR j=0 TO 7:FOR i=0 TO 5:POKE d%(z)+r+j+(i*8),PEEK(p):p=p+1:NEXT:NEXT
46 r=r+320:IF r=1920 THEN RETURN
48 GOTO 44
50 INPUT#15,e,e$,t,s:IF e THEN PRINT "{down}disk error";e;e$;t;s
52 RETURN
54 l=LEN(f$):FOR i=1 TO l:POKE 678+i,ASC(MID$(f$,i,1)):NEXT
56 POKE a,1:POKE x,8:POKE y,1:SYS 65466:POKE a,l:POKE x,167:POKE y,2:SYS 65469:RETURN
58 DATA 24904,24968,25032,25096,25160,27464,27528,27592,27656,27720,30024,30088
60 DATA 30152,30216,30280,169,13,32,210,255,169,8,133,186,169,2,162,123,160,192
62 DATA 32,189,255,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
64 DATA 255,169,0,133,144,160,3,132,183,32,165,255,133,195,32,165,255,133,196
66 DATA 164,144,208,62,164,183,136,208,235,166,195,165,196,32,205,189,169,32,32
68 DATA 22,231,32,165,255,166,144,208,38,201,0,240,24,32,22,231,32,225,255,240
70 DATA 26,32,228,255,240,232,201,32,208,228,32,228,255,240,251,208,221,169,13
72 DATA 32,22,231,160,2,76,41,192,32,66,246,96,36,48,169,0,133,25,168,169,92,133
74 DATA 26,169,177,162,4,145,25,200,208,251,230,26,202,208,246,138,162,32,145,25
76 DATA 200,208,251,230,26,202,208,246,153,0,88,153,144,88,200,192,144,208,245
78 DATA 96,169,59,141,17,208,169,120,141,24,208,173,0,221,41,254,141,0,221,96
80 DATA 169,27,141,17,208,169,21,141,24,208,173,0,221,9,3,141,0,221,96
stop tok64
(bastext 1.0)